Private Sub CmdUpdate_Click(ByVal sender As System.Object,
       ByVal e As System.EventArgs) Handles cmdUpdate.Click
        rstProducts.Fields("ProductName").Value = "This is my Book"
        rstProducts.Update()
        Call DisplayFields()
End Sub
